Min i Max û funkcje - przyk│ad
W tym przyk│adzie tabela Zam≤wienia jest u┐ywana do znalezienia najni┐szych i najwy┐szych koszt≤w frachtu zam≤wie± wys│anych do Wielkiej Brytanii.
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub MinMaxX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Zwr≤µ warto£ci najni┐szej i najwy┐szej op│aty
' za fracht za zam≤wienia wys│ane do Wielkiej
Set rst = dbs.OpenRecordset("SELECT " _
& "Min(Fracht) AS [Najni┐szy fracht], " _
& "Max(Fracht)AS [Najwy┐szy fracht] " _
& "FROM Zam≤wienia WHERE KrajOdbiorcy = 'UK';")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu
' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt
' Recordset i wymagan╣ szeroko£µ pola.
WyliczPola rst, 12
dbs.Close
End Sub